;=================================================
; sample
;




;=================================================
; test
;
(defun test ()
 ; 1
 )

;=================================================
; app entry point
;
(defun main ()

 (format t "sample~%=====~%")

 (test)

 (exit)
 )

;=================================================
; executes main
;
(main)
